home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / mcu / float09.arc / NEWMACR.SA < prev    next >
Text File  |  1987-03-04  |  2KB  |  92 lines
  1. *************************************************
  2. *
  3. *    XPLUSY --
  4. *
  5. *     THIS MACRO EFFICIENTLY ADDS THE 9-BYTE
  6. *    FRACTION POINTED TO BY XREG TO THAT POINTED
  7. *    TO BY YREG, LEAVING THE RESULT IN FRACTION
  8. *    POINTED TO BY XREG.  CARRY OUT OF HIGH-ORDER
  9. *    BIT IS IN CARRY FLAG.
  10. *
  11. XPLUSY    MACR
  12.   LDD  7,X
  13.   ADDD    7,Y
  14.   STD  7,X
  15.   LDD  5,X
  16.   ADCD    (5,Y)
  17.   STD  5,X
  18.   LDD  3,X
  19.   ADCD    (3,Y)
  20.   STD  3,X
  21.   LDD  1,X
  22.   ADCD    (1,Y)
  23.   STD  1,X
  24.   LDB  0,X
  25.   ADCB 0,Y
  26.   STB  0,X
  27.   ENDM
  28. *
  29. *************************************************
  30. *
  31. *    XSBTRY --
  32. *
  33. *     MACRO TO SUBTRACT 9-BYTE FRACTION POINTED
  34. *    TO BY Y-REG FROM THAT AT X-REG, RESULT STORED
  35. *    X-REG.  IT IS EFFICIENT.
  36. *
  37. XSBTRY MACR
  38.   LDD  7,X
  39.   SUBD    7,Y
  40.   STD  7,X
  41.   LDD  5,X
  42.   SBCD    (5,Y)
  43.   STD  5,X
  44.   LDD  3,X
  45.   SBCD    (3,Y)
  46.   STD  3,X
  47.   LDD  1,X
  48.   SBCD    (1,Y)
  49.   STD  1,X
  50.   LDB  0,X
  51.   SBCB 0,Y
  52.   STB  0,X
  53.   ENDM
  54. *
  55. ************************************************************
  56. *
  57. *  ADCD
  58. *
  59. *      ADCD SIMULATES WHAT WOULD BE THE ACTION OF A
  60. *  ADDD W/ CARRY INSTRUCTION IF IT EXISTED, ALAS IT
  61. *  DOESN'T SO IT IS DONE USING THE ADCA & ADCB INSTRUCTIONS
  62. *
  63. *  TO INVOKE ADCD: ADCD  <ADD. MODE>
  64. *  NOTE: MUST ONLY USE CONSTANT OFFSETS
  65. *
  66. ADCD  MACR
  67. *
  68.   ADCB    (1+\0)
  69.   ADCA    \0
  70. *
  71.  ENDM
  72. *
  73. ************************************************************
  74. *
  75. *  SBCD
  76. *
  77. *      SBCD SIMULATES WHAT WOULD BE THE ACTION OF A
  78. *  SUBD W/ CARRY INSTRUCTION IF IT EXISTED, ALAS IT
  79. *  DOESN'T SO IT IS DONE USING THE SBCA & SBCB INSTRUCTIONS
  80. *
  81. *  TO INVOKE SBCD:  SBCD  <ADD. MODE>
  82. *  NOTE: MUST ONLY USE CONSTANT OFFSETS
  83. *
  84. SBCD  MACR
  85. *
  86.   SBCB    (1+\0)
  87.   SBCA    \0
  88. *
  89.  ENDM
  90. *
  91. *
  92.